ggplotly(ggplot(data = covid_map_data, aes(x = long, y = lat, group = group, text = Landkreis)) +
  # @todo: rename AnzahlFall in tooltip
  geom_polygon(aes(fill = AnzahlFall), color = 'gray', size = 0.1 ) +
  # @todo: set title
  ggtitle("Fälle der letzten 7 Tage (Stand: 2021/12/16)") +
  guides(fill = guide_colorbar(title = "Gemeldete Fälle")) +
  coord_fixed(1.0) +
  scale_fill_steps2(
    low = "red",
    mid = "yellow",
    high = "blue",
    limits=c(0,2500),
    space = "Lab",
    na.value = "grey50",
    guide = "colorsteps",
    aesthetics = "fill"
  ) +
  theme_bare
)